home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / fido / RFS275.lha / Install-RFH < prev    next >
Text File  |  1995-04-17  |  2KB  |  60 lines
  1. ; RFH Installer v22
  2. (set sourcedir
  3.     (askdir
  4.         (prompt "OK, where are the RFH files??")
  5.         (help @askdir-help)
  6.         (default "MAIL:rexx/")
  7.     )
  8. )
  9.  
  10. (set @default-dest
  11.     (askdir
  12.         (prompt "OK, where will I install RFH??")
  13.         (help @askdir-help)
  14.         (default "MAIL:rexx/")
  15.     )
  16. )
  17.  
  18.  
  19. ( set bbs 
  20.  (askchoice
  21.     (prompt "Select Generic or BBS version to Install.")
  22.     (help "Select file description method")
  23.     (choices "GENERIC - uses FileNotes" "DLG - uses FD files" "TransAmiga - uses DESC files" "Excelsior - uses database ")
  24.     (default 0)
  25.  )
  26. )
  27. (if (= bbs 0)
  28.     (set bbsfile "!GEN.rfh")
  29.     (if (= bbs 1)
  30.         (set bbsfile "!DLG.rfh")
  31.         (if (= bbs 2)
  32.             (set bbsfile "!TRN.rfh")
  33.             (if (= bbs 3)            
  34.                 (set bbsfile "!EXL.rfh")
  35.             )
  36.         )
  37.     )
  38. )
  39.  
  40. (set bbsfile (tackon sourcedir bbsfile))
  41. (set root    (tackon sourcedir "RFH.SRC"))
  42. (set destfile (tackon @default-dest "RFH.REXX"))
  43. (textfile
  44.     (prompt "Create " bbsfile " version of RFH.rexx in " @default-dest)
  45.     (help "NO HELP'!")
  46.     (dest destfile)
  47.     (append "/**/\n")
  48.     (append "v=\"$VER: RFH Rexx WPL Mailer File Request Function Host Williamson 56.29\"\n")
  49.     (append "compiled=0  /* Set to 1 before compiling! */\n")
  50.     (append "if ~show('L', \"rexxdossupport.library\") then\n")
  51.     (append "if ~addlib(\"rexxdossupport.library\", 0, -30, 2) then do\n")
  52.     (append "Say 'Could not access WB2 rexxdossupport.library'\n")
  53.     (append "exit 20\n")
  54.     (append "end\n")
  55.     (include root)
  56.     (include bbsfile)
  57. )
  58.  
  59. (exit)
  60.